<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.xt</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3045</cardID>
<listID>2195</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>608</width>
<height>360</height>
</cardSize>
<script>on openStack-- enable menuItem "Copy Text" of menu "Edit"pass openStackend openStack-- on openCard-- if bg field tText is empty then-- -- answer "EMPTY FIELD"-- WTIgoback-- end if-- pass openCard-- end openCardon idleif bg field tText is empty then-- answer "EMPTY FIELD"WTIgobackend ifif the selection is empty thendisable menuItem "Copy Text" of menu "Edit"put the number of lines in the voices into xif x > 0 thendisable menuItem "Read Selected Text" of menu "Reader"end ifelseenable menuItem "Copy Text" of menu "Edit"put the number of lines in the voices into xif x > 0 thenenable menuItem "Read Selected Text" of menu "Reader"end ifend ifpass idleend idleon doMenu menuItemglobal mainLocglobal speakNameglobal lastImageif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainexit doMenuelse if menuItem is "Multimedia" thenWTImmediaexit doMenuelse if menuItem is "Outline Search" thenWTIoutlineexit doMenuelse if menuItem is "Word Search" thengo to card 2 of mainLocexit doMenuelse if menuItem is "Credits" thenWTIcreditsexit doMenuelse if menuItem is "Geographic Search" thenWTIgeosearchexit doMenuelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Choose…" thenchooseVoiceexit doMenuelse if menuItem is "Selected Text" thenreadSelTextexit doMenuelse if menuItem is "Search Here…" thenask "Enter text to search here:"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelsefind itif the result is "Not Found" thenanswer "Text Not Found:" && itend ifend ifexit doMenuelse if menuItem is "Speak Name" thenput not speakName into speakNameset checkMark of menuItem "Speak Name" of menu "Options " to speakNameexit doMenuelse if menuItem is "Print Image" thenif lastImage is not empty thenPICTPrint lastImageend ifexit doMenuelse if menuItem is "Print Text" thenset lockErrorDialogs to truesend mouseUp to bg button "Print Text"set lockErrorDialogs to falseexit doMenuelse if menuItem is "Read Text" thenstop speechif the number of bg fields >= 1 thenset lockErrorDialogs to trueput bg field 1 into xset lockErrorDialogs to falsespeak x with voice voiceChoiceend ifexit doMenuelse if menuItem is "Copy Image" thenif lastImage is not empty thenPICTtoScrap lastImageend ifexit doMenuelse if menuItem is "Quit World Factbook" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenu</script>
